home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 September / CHIP Eylül 1998.iso / demolar / lokman / DISK1 / _SETUP.3 / Group1 / Fytaktar.exe / 0 / RCDATA / TFARKFORM / TFARKFORM.txt
Text File  |  1998-06-28  |  6KB  |  275 lines
  1. object FarkForm: TFarkForm
  2.   Left = 76
  3.   Top = 73
  4.   Width = 507
  5.   Height = 347
  6.   ActiveControl = MaskEdFI
  7.   Caption = '∩┐╜R∩┐╜N F∩┐╜YATLARINDAK∩┐╜ FARK TOPLAMLARI'
  8.   Font.Color = clWindowText
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   KeyPreview = True
  13.   OnClose = FormClose
  14.   OnShow = FormShow
  15.   PixelsPerInch = 96
  16.   TextHeight = 13
  17.   object Label1: TLabel
  18.     Left = 96
  19.     Top = 3
  20.     Width = 210
  21.     Height = 46
  22.     Caption = 
  23.       'Tarihinden ∩┐╜tibaren Stoktaki Fiyat∩┐╜ De∩┐╜i∩┐╜mi∩┐╜  ∩┐╜r∩┐╜nlerin Fiyat Fa' +
  24.       'rklar∩┐╜n∩┐╜n Toplam∩┐╜n∩┐╜ Bul'
  25.     Font.Color = clNavy
  26.     Font.Height = -12
  27.     Font.Name = 'Arial'
  28.     Font.Style = [fsBold]
  29.     ParentFont = False
  30.     WordWrap = True
  31.   end
  32.   object LabelAd: TLabel
  33.     Left = 9
  34.     Top = 278
  35.     Width = 7
  36.     Height = 15
  37.     Caption = '_'
  38.     Font.Color = clBlack
  39.     Font.Height = -12
  40.     Font.Name = 'Arial'
  41.     Font.Style = [fsBold]
  42.     ParentFont = False
  43.   end
  44.   object LabelTOP: TLabel
  45.     Left = 9
  46.     Top = 300
  47.     Width = 14
  48.     Height = 15
  49.     Caption = '__'
  50.     Font.Color = clBlack
  51.     Font.Height = -12
  52.     Font.Name = 'Arial'
  53.     Font.Style = [fsBold]
  54.     ParentFont = False
  55.   end
  56.   object Label2: TLabel
  57.     Left = 14
  58.     Top = 54
  59.     Width = 48
  60.     Height = 14
  61.     Caption = 'ARANAN:'
  62.     Font.Color = clNavy
  63.     Font.Height = -11
  64.     Font.Name = 'Arial'
  65.     Font.Style = []
  66.     ParentFont = False
  67.   end
  68.   object LabelARA: TLabel
  69.     Left = 70
  70.     Top = 54
  71.     Width = 12
  72.     Height = 14
  73.     Caption = '__'
  74.     Font.Color = clNavy
  75.     Font.Height = -11
  76.     Font.Name = 'Arial'
  77.     Font.Style = []
  78.     ParentFont = False
  79.   end
  80.   object Label3: TLabel
  81.     Left = 329
  82.     Top = 32
  83.     Width = 36
  84.     Height = 13
  85.     Caption = '∩┐╜lerleme'
  86.   end
  87.   object BitBtn1: TBitBtn
  88.     Left = 328
  89.     Top = 3
  90.     Width = 160
  91.     Height = 25
  92.     Caption = 'Listeyi A∩┐╜ ve Toplam∩┐╜ Ver'
  93.     Font.Color = clNavy
  94.     Font.Height = -12
  95.     Font.Name = 'Arial'
  96.     Font.Style = [fsBold]
  97.     ParentFont = False
  98.     TabOrder = 0
  99.     OnClick = BitBtn1Click
  100.   end
  101.   object MaskEdFI: TMaskEdit
  102.     Tag = 1
  103.     Left = 15
  104.     Top = 3
  105.     Width = 74
  106.     Height = 23
  107.     EditMask = '99/99/9999;1;_'
  108.     Font.Color = clBlack
  109.     Font.Height = -12
  110.     Font.Name = 'Arial'
  111.     Font.Style = [fsBold]
  112.     MaxLength = 10
  113.     ParentFont = False
  114.     TabOrder = 1
  115.     Text = '  .  .    '
  116.   end
  117.   object DBGrid1: TDBGrid
  118.     Left = 8
  119.     Top = 70
  120.     Width = 484
  121.     Height = 156
  122.     Color = clSilver
  123.     DataSource = DS_Urun
  124.     FixedColor = clSilver
  125.     Font.Color = clBlack
  126.     Font.Height = -11
  127.     Font.Name = 'Arial'
  128.     Font.Style = [fsBold]
  129.     ParentFont = False
  130.     TabOrder = 2
  131.     TitleFont.Color = clRed
  132.     TitleFont.Height = -11
  133.     TitleFont.Name = 'Arial'
  134.     TitleFont.Style = [fsBold]
  135.     OnKeyPress = DBGrid1KeyPress
  136.   end
  137.   object DBGrid2: TDBGrid
  138.     Left = 8
  139.     Top = 233
  140.     Width = 484
  141.     Height = 43
  142.     Color = clSilver
  143.     DataSource = DS_Fiyat
  144.     FixedColor = clSilver
  145.     Font.Color = clBlack
  146.     Font.Height = -11
  147.     Font.Name = 'Arial'
  148.     Font.Style = [fsBold]
  149.     ParentFont = False
  150.     TabOrder = 3
  151.     TitleFont.Color = clRed
  152.     TitleFont.Height = -11
  153.     TitleFont.Name = 'Arial'
  154.     TitleFont.Style = [fsBold]
  155.   end
  156.   object BitBtn2: TBitBtn
  157.     Left = 416
  158.     Top = 288
  159.     Width = 75
  160.     Height = 25
  161.     Font.Color = clNavy
  162.     Font.Height = -12
  163.     Font.Name = 'Arial'
  164.     Font.Style = [fsBold]
  165.     ParentFont = False
  166.     TabOrder = 4
  167.     Kind = bkClose
  168.   end
  169.   object ProgressBar1: TProgressBar
  170.     Left = 328
  171.     Top = 48
  172.     Width = 160
  173.     Height = 16
  174.     Min = 0
  175.     Max = 100
  176.     TabOrder = 5
  177.   end
  178.   object QFiyat: TQuery
  179.     OnCalcFields = QFiyatCalcFields
  180.     DatabaseName = 'ECZ'
  181.     DataSource = DS_Urun
  182.     Params.Data = {
  183.       0100030006494C41434E4F000304000000000001000946495941544152494800
  184.       0904005A950A00010006494C41434E4F00030400000000000100}
  185.     SQL.Strings = (
  186.       'SELECT'
  187.       'ILACNO,FIYAT,FITARIH'
  188.       'FROM URFAYAR'
  189.       'WHERE  FITARIH =(SELECT MAX(FITARIH) FROM URFAYAR  '
  190.       'WHERE (ILACNO=:ILACNO) AND( FITARIH<=:FIYATARIH))'
  191.       'AND (ILACNO=:ILACNO)')
  192.     Left = 232
  193.     Top = 200
  194.     object QFiyatILACNO: TIntegerField
  195.       DisplayWidth = 12
  196.       FieldName = 'ILACNO'
  197.       Visible = False
  198.     end
  199.     object QFiyatFITARIH: TDateTimeField
  200.       DisplayLabel = 'Esk.Fyt.Trh.'
  201.       DisplayWidth = 13
  202.       FieldName = 'FITARIH'
  203.       DisplayFormat = 'dd.mm.yyyy'
  204.     end
  205.     object QFiyatFIYAT: TCurrencyField
  206.       DisplayLabel = 'ESK∩┐╜ F∩┐╜YATI'
  207.       DisplayWidth = 18
  208.       FieldName = 'FIYAT'
  209.     end
  210.     object QFiyatFIYATFARKI: TCurrencyField
  211.       Calculated = True
  212.       DisplayLabel = 'F∩┐╜YAT FARKI'
  213.       DisplayWidth = 18
  214.       FieldName = 'FIYATFARKI'
  215.     end
  216.     object QFiyatBIRIMFARK: TCurrencyField
  217.       Calculated = True
  218.       DisplayLabel = 'B∩┐╜R∩┐╜M FYT. FARK'
  219.       DisplayWidth = 18
  220.       FieldName = 'BIRIMFARK'
  221.     end
  222.   end
  223.   object QUrun: TQuery
  224.     DatabaseName = 'ECZ'
  225.     Params.Data = {010001000666797454524800090400CA1F0B000001}
  226.     SQL.Strings = (
  227.       'SELECT'
  228.       'ILACNO,'
  229.       'ILACAD,'
  230.       'MIKTAR,'
  231.       'FIYAT,'
  232.       'FIYATARIH'
  233.       'FROM URUN'
  234.       'WHERE '
  235.       '(MIKTAR IS NOT NULL) AND (MIKTAR>0) AND'
  236.       '(FIYATARIH>=:fytTRH)'
  237.       'ORDER BY ILACAD')
  238.     Left = 120
  239.     Top = 120
  240.     object QUrunILACNO: TIntegerField
  241.       FieldName = 'ILACNO'
  242.       Visible = False
  243.     end
  244.     object QUrunILACAD: TStringField
  245.       DisplayLabel = '∩┐╜R∩┐╜N ADI'
  246.       FieldName = 'ILACAD'
  247.       Size = 36
  248.     end
  249.     object QUrunMIKTAR: TIntegerField
  250.       DisplayLabel = 'M∩┐╜KTARI'
  251.       DisplayWidth = 7
  252.       FieldName = 'MIKTAR'
  253.     end
  254.     object QUrunFIYAT: TCurrencyField
  255.       DisplayLabel = 'F∩┐╜YAT'
  256.       DisplayWidth = 18
  257.       FieldName = 'FIYAT'
  258.     end
  259.     object QUrunFIYATARIH: TDateField
  260.       DisplayLabel = 'Fyt.Tarihi'
  261.       FieldName = 'FIYATARIH'
  262.     end
  263.   end
  264.   object DS_Urun: TDataSource
  265.     DataSet = QUrun
  266.     Left = 208
  267.     Top = 96
  268.   end
  269.   object DS_Fiyat: TDataSource
  270.     DataSet = QFiyat
  271.     Left = 264
  272.     Top = 208
  273.   end
  274. end
  275.